home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 023a / prop_man.zip / CUSTLAB.SAB < prev    next >
Text File  |  1991-10-16  |  5KB  |  159 lines
  1. label start
  2. cls
  3. set null " "
  4. clear all v
  5. set v line1 text
  6. set v line2 text
  7. set v line3 text
  8. set v line4 text
  9. set v line5 text
  10. display cp.dis
  11. write "CUSTLAB.SAB" at 2,36
  12. write "Custom Label Production" at 4,30
  13. wri " " at 7,1
  14. wri " 1: Small Claims                      11: Johnson Disposal             "
  15. wri " 2: E.C. County Housing               12: City of Chippewa Falls       "
  16. wri " 3: E.C. City Housing                 13: EC Co Dept Human Services    "
  17. wri " 4: Farmers Home Administration       14: Chippewa County Housing      "
  18. wri " 5: City of Eau Claire (utilities)    15: William Weisjahn             "
  19. wri " 6: City of Altoona                   16: Pittsville Homes             "
  20. wri " 7: Village of Fall Creek             17:                              "
  21. wri " 8: Village of Elk Mound              18:                              "
  22. wri " 9: City of Menomonie                 19: Company Labels (Large Type)  "
  23. wri "10: City of Milwaukee  (utilities)    20: Exit Label Program           "
  24. set v wch to ""
  25. set v hm to ""
  26. fillin wch using "Enter Appropriate Number ->  " at 19,5
  27.   if wch = "20" then ; goto 20 ; endif
  28. fillin hm using "How Many Labels?  " at 21,5
  29. goto .wch
  30. goto start
  31. label 1
  32.   set v line1 to "Eau Claire County Clerk of Courts"
  33.   set v line2 to "Small Claims Division"
  34.   set v Line3 to "721 Oxford Avenue"
  35.   set v line4 to "Eau Claire, Wisconsin  54703"
  36.   set v line5 to ""
  37.   goto print
  38. label 2
  39.   set v line1 to "Ann Marie Anderson"
  40.   set v line2 to "Housing Specialist"
  41.   set v line3 to "Department of Planning and Development"
  42.   set v line4 to "731 Oxford Avenue   Room 167"
  43.   set v line5 to "Eau Claire, Wisconsin  54703"
  44.   goto print
  45. label 3
  46.   set v line1 to "Lynn Dillenbeck"
  47.   set v line2 to "Housing Specialist"
  48.   set v line3 to "Eau Claire City Housing Authority"
  49.   set v line4 to "203 South Farwell Street"
  50.   set v line5 to "Eau Claire, Wisconsin  54701
  51.   goto print
  52. label 4
  53.   set v line1 to "Farmers Home Administration"
  54.   set v line2 to "2004 Highland Avenue"
  55.   set v line3 to "Regis Court II  Suite 2E"
  56.   set v line4 to "Eau Claire, Wisconsin"
  57.   set v line5 to "54701"
  58.   goto print
  59. label 5
  60.   set v line1 to "City of Eau Claire
  61.   set v line2 to "203 South Farwell Street"
  62.   set v line3 to "Eau Claire, Wisconsin"
  63.   set v line4 to "54702-0909"
  64.   set v line5 to ""
  65.   goto print
  66. label 6
  67.   set v line1 to "City of Altoona Treasurer"
  68.   set v line2 to "Post Office Box 8"
  69.   set v line3 to "Altoona, Wisconsin
  70.   set v line4 to "54720-0008"
  71.   set v line5 to ""
  72.   goto print
  73. label 7
  74.   set v line1 to "Fall Creek Village Treasurer"
  75.   set v line2 to "112 North State    Box 156"
  76.   set v line3 to "Fall Creek, Wisconsin"
  77.   set v line4 to "54742-0156"
  78.   set v line5 to ""
  79.   goto print
  80. label 8
  81.   set v line1 to "Village of Elk Mound"
  82.   set v line2 to "Post Office Box 188"
  83.   set v line3 to "Elk Mound, Wisconsin"
  84.   set v line4 to "54739-0188"
  85.   set v line5 to ""
  86.   goto print
  87. label 9
  88.   set v line1 to "City of Menomonie"
  89.   set v line2 to "800 Wilson Avenue"
  90.   set v line3 to "Menomonie, Wisconsin"
  91.   set v line4 to "54751"
  92.   set v line5 to ""
  93.   goto print
  94. label 10
  95.   set v line1 to "Milwaukee Water Works"
  96.   set v line2 to "841 North Broadway   Room 414"
  97.   set v line3 to "Milwaukee, Wisconsin"
  98.   set v line4 to "53202"
  99.   set v line5 to ""
  100.   goto print
  101. label 11
  102.   set v line1 to ""
  103.   set v line2 to "Johnson Disposal Service"
  104.   set v line3 to "Post Office Box 7"
  105.   set v line4 to "Altoona, Wisconsin  54720-0007"
  106.   set v line5 to ""
  107.   goto print
  108. label 12
  109.   set v line1 to "City of Chippewa Falls"
  110.   set v line2 to "Dept of Public Utilities"
  111.   set v line3 to "30 West Central Street   Room 209"
  112.   set v line4 to "Chippewa Falls, Wisconsin
  113.   set v line5 to "54729-2467"
  114.   goto print
  115. label 13
  116.   set v line1 to "Eau Claire Co Dept Human Services"
  117.   set v line2 to "202 Eau Claire Street"
  118.   set v line3 to "Post Office Box 840"
  119.   set v line4 to "Eau Claire, Wisconsin
  120.   set v line5 to "54702-0840"
  121.   goto print
  122. label 14
  123.   set v line1 to "Twila Plummer"
  124.   set v line2 to "Chippewa County Housing Authority"
  125.   set v line3 to "711 North Bridge Street"
  126.   set v line4 to "Chippewa Falls, Wisconsin"
  127.   set v line5 to "54729"
  128.   goto print
  129. label 15
  130.   set v line1 to ""
  131.   set v line2 to "Naomi & William Weisjahn"
  132.   set v line3 to "614 Westwood Drive"
  133.   set v line4 to "Onalaska, Wisconsin  54650"
  134.   set v line5 to ""
  135.   goto print
  136. label 16
  137.   set v line1 to ""
  138.   set v line2 to "Pittsville Homes, Incorportated"
  139.   set v line3 to "Box 'C'  Highway 80 South"
  140.   set v line4 to "Pittsville, Wisconsin  54466"
  141.   set v line5 to ""
  142.   goto print
  143. label 17
  144.   goto start
  145. label 18
  146.   goto start
  147. label 19
  148.   run sablabel.sab
  149.   goto start
  150. label 20
  151.   cls
  152.   return
  153. label print
  154.   out pri
  155.     print custlab where limit = .hm
  156.   out scr
  157.   goto start
  158.  
  159.